﻿Module Module1
    Function Bai10(ByVal x As Double, ByVal n As Integer) As Double
        Dim T As Double
        T = x ^ n
        Return T
    End Function
    Sub Main()
        Dim n, x As Integer
        Console.WriteLine("Nhap so x: ")
        x = Console.ReadLine()
        Console.WriteLine("Nhap so n: ")
        n = Console.ReadLine()
        Dim kq As Double
        kq = Bai10(x, n)
        Console.WriteLine("T(x,n)= " & kq)
    End Sub

End Module
